﻿'#################################################################
'     Программа спроектирована и написана Чернявским Андреем
'              для курсовой работы по информатике,
'        весь код, от начала и до конца написан вручную.
' SVN проекта находится на http://code.google.com/p/testviewerbf/
'#################################################################
Public Class EnterForm
    'Обявляем переменные, при этом обявляем переменные не через DIM а через PUBLIC для доступа к переменным из других форм.
    Public fam As String
    Public group As String
    Public testn As String
    'Второстепенные переменные.
    Public admp As String = "adm"
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Закрытие.
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Загрузка из модуля.
        testname()
        settingdefoult()
        settingload()
        'Выбор первого Item'а из ComboBox1.
        ComboBox1.Text = ComboBox1.Items(0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Присваиванее переменных.
        'Фамилия тестируемого.
        fam = TextBox1.Text
        'Группа тестируемого.
        group = TextBox2.Text
        'Проходимый тест.
        testn = ComboBox1.Text
        'Открытие основной формы.
        'Условие проверяющие что все поля заполненны.
        If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Не все поля заполнены", MsgBoxStyle.Information)
        Else
            Testbox.Visible = True
            Me.Visible = False
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'Открытие окна настроек программы.
        If TextBox1.Text = admp Then
            AdminSetting.Visible = True
        End If
    End Sub
End Class
